(set #script-description "Dieses Skript druckt die DVI Version der Anleitung zu Laplace auf DIN A4 Papier. Dazu wird eine komplette Installation von PasTeX1.4 benötigt. PasTeX ist im Aminet zu finden.")
(set #no-laplace-installation "Laplace wurde nicht richtig installiert.\nIch kann mit dem Skript nicht fortfahren.")
(set #no-pastex-found "Dieses Skript benötigt PasTeX V1.4. Es ist im Aminet zufinden, Verzeichnis 'text/tex/', Datei 'pt14l.lha'. Achtung, dabei handelt es sich um eine 10MB Datei! Es ist auch auf diversen CD-ROMs zu finden.")
(set #ask-languages-prompt "Wähle bitte die Sprachen, die gedruckt werden sollen..")
(set #ask-languages-help (cat
"Du kannst natürlich alle Sprachen ausdrucken, ich denke aber, daß Du nur an einer Version interessiert bist.\n"
"Beachte bitte, daß Du für jede Sprache die entsprechende DVI Anleitung installiert haben mußt.\n"
"\n"
@askoptions-help
)
)
(set #no-languages-selected "Es wurden keine Sprachen ausgewählt. Das Skript wird abgebrochen.")
(set #ask-pagemode-prompt "Wi sollen die Seiten bedruckt werden?")
(set #ask-pagemode-help (cat
"Einzelseiten:\n"
" eine Seite auf ein Blatt Papier.\n"
"Doppelseiten:\n"
" verkleinert die Seitengröße und druckt zwei Seiten auf ein Blatt Papier.\n"
"\n"
@askchoice-help
)
)
(set #ask-pagemode-single "Einzelseiten")
(set #ask-pagemode-double "Doppelseiten")
(set #ask-sortmode-prompt "In welcher Reihenfolge sollen die Seiten gedruckt werden?")
(set #ask-sortmode-help (cat
"fortlaufend:\n"
" alle Seiten nacheinander.\n"
"zuerst ungerade, dann gerade Seiten:\n"
" druckt zuerst die Seiten 1, 3, 5..., dann 2, 4, 6... Indem das Papier nach dem ersten Durchgang wieder in den Drucker eingelegt wird, können beide Seiten bedruckt werden.\n"
"\n"
@askchoice-help
)
)
(set #ask-sortmode-cont "fortlaufend")
(set #ask-sortmode-skip "zuerst ungerade, dann gerade Seiten")
(set #ask-measure-prompt "Willst Du zuerst eine Testseiten drucken?")
(set #ask-measure-help (cat
"Um den vertikalen und horizontalen Offset an den Drucker anzupassen, kannst Du zuerst ein paar Testseiten drucken.\n"
"Die Standardwerte sind an meinen Epson Stylus Color IIs angepaßt, ich weiß nicht, wie sie mit anderen Druckern funktionieren.\n"
)
)
(set #ask-voffset-prompt "Gebe bitte den vertikalen Offset an.")
(set #ask-hoffset-prompt "Gebe bitte den horizontalen Offset an.")
(set #ask-offset-help (cat
"Offset um die Seite auf dem Blatt zu positionieren.\n"
"Gebe bitte einen Wert, gefolgt von einer Einheit an. Erlaubt Einheiten sind:\n"
" pt - Punkt\n"
" cm - Zentimeter\n"
" mm - Millimeter\n"
" in - Inch, 1in = 72.27pt\n"
" pc - Pica, 1pc = 12pt\n"
" dd - Didôt Punkt, 1157dd = 1238 pt\n"
" cc - Cicero, 1cc = 12dd\n"
" bp - Big point 72bp = 1in\n"
"\n"
@askstring-help
)
)
(set #ask-printername-prompt "Gebe bitte den Namen Deines Druckers an.")
(set #ask-printername-help (cat
"Gebe den Namen, so wie er von DVIPrint verlangt wird, an.\n"
"Falls Du ihn nicht kennst, öffne eine Shell und geben 'alias' ein. Eine der Zeilen sollte wie folgt aussehen:\n"
"dp run dviprint P=DEINDRUCKER ...\n"
"'DEINDRUCKER' ist genau das, was Du angeben mußt.\n"
"\n"
@askstring-help
)
)
(set #print-doc "Drucke \"%s\"...")
(set #no-dvifile "Kann \"%s\" nicht öffnen...\nHast Du es vielleicht nicht installiert!?!")
(set #printdoc-even "Jetzt werde ich die geraden Seiten drucken, lege dazu den das Papier wieder in den Eingabeschacht.")
(set #dviprint-prompt "Ich werde nun DVIPrint für die Datei \"%s\" aufrufen.")
(set #dviprint-help "Und los...")
(set #dviprint-error-prompt "DVIPrint has einen Fehlerkode zurück geliefert.\nEs scheint ein Problem gegeben zu haben.")
(set #dviprint-error-help (cat
"DVIPrint war nicht in der Lage, die Anleitung zu drucken. Dafür kann es verscheidene Ursachen geben:\n"
" Der angegeben Druckername war falsch.\n"
" Du hast nicht genug freien Speicher (DVIPrint benötigt viel ChipMem)\n"
" Deine TeX Installation ist defekt.\n"
"\n"
"Um genaueres zu erfahren, kannst Du die Datei \"T:DVIPrint.out\" ansehen."
"\n"
@askbool-help
)
)
(set #dviprint-error-proceed "Proceed")
(set #dviprint-error-abort "Abort")
;-2-
)
(if (= @language "pladd")
(
(abort "not implemented")
)
(
;-1- "english"
(set @abort-button "Abort script")
(set #script-description "This script prints the DVI version of the manual for Laplace on DIN A4 paper. You need a complete installation of PasTeX1.4 to proceed. PasTeX can be found in the Aminet.")
(set #no-laplace-installation "Laplace is not properly installed.\nI cannot proceed with this script.")
(set #no-pastex-found "This script requires PasTeX V1.4. It can be found in the Aminet, directory 'text/tex/', file 'pt14l.lha'. Attention, this is a 10MB file! It can also be found on some CD-ROMs.")
(set #ask-languages-prompt "Select the languages that should be installed.")
(set #ask-languages-help (cat
"If you like, you can print all manuals at once, but I think you are only interested in one language.\n"
"Note that you must have installed the DVI manual for each selected language.\n"
"\n"
@askoptions-help
)
)
(set #no-languages-selected "No languages are selected. Aborting script.")
(set #ask-pagemode-prompt "How should the pages be arranged?")
(set #ask-pagemode-help (cat
"single pages:\n"
" just print one page on one piece of paper.\n"
"double pages:\n"
" reduce pages size and print two pages on one piece of paper.\n"
"\n"
@choice-help
)
)
(set #ask-pagemode-single "single pages")
(set #ask-pagemode-double "double pages")
(set #ask-sortmode-prompt "In which order should the pages be printed?")
(set #ask-sortmode-help (cat
"continous:\n"
" print all pages one after the other.\n"
"first odd, then even pages:\n"
" prints first pages 1, 3, 5..., then 2, 4, 6... Reinsert the paper after the first pass to use both sides.\n"
"\n"
@askchoice-help
)
)
(set #ask-sortmode-cont "continuous")
(set #ask-sortmode-skip "first odd, then even pages")
(set #ask-measure-prompt "You you want to print a test page?")
(set #ask-measure-help (cat
"To adjust the vertical and horizonal offsets to your printer, you can first print some test pages.\n"
"The default values work fine with my Epson Stylus Color IIs, but I don't know how they look with other printers.\n"
)
)
(set #ask-voffset-prompt "Please enter vertical offset.")
(set #ask-hoffset-prompt "Please enter horizontal offset.")
(set #ask-offset-help (cat
"Offset to place the page on the piece of paper.\n"
"Please enter a value follow by unit. Valid units are:\n"
" pt - points\n"
" cm - centimeter\n"
" mm - millimeter\n"
" in - inch, 1in = 72.27pt\n"
" pc - pica, 1pc = 12pt\n"
" dd - didôt point, 1157dd = 1238 pt\n"
" cc - cicero, 1cc = 12dd\n"
" bp - big point 72bp = 1in\n"
"\n"
@askstring-help
)
)
(set #ask-printername-prompt "Please enter the name of your printer.")
(set #ask-printername-help (cat
"Enter the name that is to be used for DVIPrint.\n"
"If you don't know it, open a shell and enter 'alias'. "
"There should be a line like:\n"
"dp run dviprint P=YOURPRINTER ...\n"
"'YOURPRINTER' is exactly what you have to enter.\n"
"\n"
@askstring-help
)
)
(set #print-doc "Printing \"%s\"...")
(set #no-dvifile "Unable to open \"%s\"...\nPerhaps you didn't install it!?!")
(set #printdoc-even "Now I will print the even pages, please reinsert the paper to your printer.")
(set #dviprint-prompt "I will now run DVIPrint on the file \"%s\".")
(set #dviprint-help "And go...")
(set #dviprint-error-prompt "DVIPrint returned an error code.\nThere seems to be a problem.")
(set #dviprint-error-help (cat
"DVIPrint was not able to print the manual. There could be several reasons:\n"
" The selected printername is wrong.\n"
" You don't have enough free memory (DVIPrint need much chipmem)\n"
" Your TeX installations is corrupted.\n"
"\n"
"To have a closer look at the error reason, look at the file \"T:DVIPrint.out\"."
